home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 1997 Winter - Disc 1 / HYPERLIB-1997-Winter-CD1.ISO.7z / HYPERLIB-1997-Winter-CD1.ISO / オンラインウェア / PRG / MacPerl 506 appl folder.sit / MacPerl 506 appl folder / Mac_Perl_506r1m_appl / lib / GetKey.pl < prev    next >
Text File  |  1995-10-06  |  339b  |  19 lines
  1. #
  2. # GetKey -- return key that was pressed, if any
  3. # Matthias Neeracher <neeri@iis.ee.ethz.ch>
  4. #
  5. # Distribution permitted as long as copyright notice stays intact.
  6.  
  7. #
  8. # $result = &MacPerl'GetKey();
  9. #
  10. # $result is a single character if a key was pressed, else
  11. # an empty string.
  12. #
  13.  
  14. package MacPerl;
  15.  
  16. &MacPerl'LoadExternals("GetKey.pl");
  17.  
  18. 1;
  19.